﻿Public Class TestingObject
    Dim _headerType As String
    Dim _headerID As String
    Dim _headerDate As String
    Dim _headerNotes As String
    Dim _headerCurr As String
    Dim _totalDebet As String
    Dim _totalCredit As String
    Dim _lineSeq As String
    Dim _lineAccountID As String
    Dim _lineAccountName As String
    Dim _lineNotes As String
    Dim _lineDebet As String
    Dim _lineCredit As String

    'Public Sub New(HeaderType As String, HeaderID As String, HeaderDate As String, HeaderNotes As String, _
    '                TotalDebet As Decimal, TotalCredit As Decimal, LineSeq As String, LineAccountID As String, _
    '                LineAccountName As String, LineNotes As String, LineDebet As Decimal, LineCredit As Decimal)
    '    _headerType = HeaderType
    '    _headerID = HeaderID
    '    _headerDate = HeaderDate
    'End Sub

    Public Property HeaderType() As String
        Get
            Return _headerType
        End Get
        Set(ByVal value As String)
            _headerType = value
        End Set
    End Property

    Public Property HeaderID() As String
        Get
            Return _headerID
        End Get
        Set(ByVal value As String)
            _headerID = value
        End Set
    End Property

    Public Property HeaderDate() As String
        Get
            Return Convert.ToDateTime(_headerDate).ToString("dd MMM yyyy")
        End Get
        Set(ByVal value As String)
            _headerDate = Convert.ToDateTime(value).ToString("dd MMM yyyy")
        End Set
    End Property

    Public Property HeaderNotes() As String
        Get
            Return _headerNotes
        End Get
        Set(ByVal value As String)
            _headerNotes = value
        End Set
    End Property

    Public Property HeaderCurr() As String
        Get
            Return _headerCurr
        End Get
        Set(ByVal value As String)
            _headerCurr = value
        End Set
    End Property

    Public Property TotalDebet() As String
        Get
            Return _totalDebet
        End Get
        Set(ByVal value As String)
            _totalDebet = value
        End Set
    End Property

    Public Property TotalCredit() As String
        Get
            Return _totalCredit
        End Get
        Set(ByVal value As String)
            _totalCredit = value
        End Set
    End Property

    Public Property LineSeq() As String
        Get
            Return _lineSeq
        End Get
        Set(ByVal value As String)
            _lineSeq = value
        End Set
    End Property

    Public Property LineAccountID() As String
        Get
            Return _lineAccountID
        End Get
        Set(ByVal value As String)
            _lineAccountID = value
        End Set
    End Property

    Public Property LineAccountName() As String
        Get
            Return _lineAccountName
        End Get
        Set(ByVal value As String)
            _lineAccountName = value
        End Set
    End Property

    Public Property LineNotes() As String
        Get
            Return _lineNotes
        End Get
        Set(ByVal value As String)
            _lineNotes = value
        End Set
    End Property

    Public Property LineDebet() As String
        Get
            Return _lineDebet
        End Get
        Set(ByVal value As String)
            _lineDebet = value
        End Set
    End Property

    Public Property LineCredit() As String
        Get
            Return _lineCredit
        End Get
        Set(ByVal value As String)
            _lineCredit = value
        End Set
    End Property
End Class
